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Source Code for S-C Assembler II Version 4.0 


At long last, I have decided to start selling the source code for 
my assembler. So many of you have asked for it! I am sure you 
understand my reluctance; after all, with a wife and five kids to 
Support, and most of our income coming from this one product.... 


If I have your registration card for Version 4.0 on file, or some 
other proof-of-purchase, I will send you a disk with all of the 
commented source code on it. You can study it, assemble it, 
modify it, et cetera; just don't start selling it! With your 
check for $95, you will need to include the following signed 
declaration: 


“I am purchasing the source code of S-C Assembler II 
Version 4.0 with the understanding that it is 
proprietary information belonging to S-C SOFTWARE. The 
disk, and any copies or listings I may make of it, are 
only for my own personal use." 


Another Way Out of the Assembler 


James Church, from Trumbull, CT, writes that he has found a way to 
get from the assembler into Applesoft, without wiping out an 
Applesoft program. 


The normal way to leave is by typing FP, and then PR#0. This of 
course Clears any Applesoft program from memory. But by typing 
SAAB6:40, S$E003G, and PR#0 you can enter Applesoft softly. 


Sifting Primes Faster and Faster 


Benchmark programs are sometimes useful for selecting between 
various processors. Quite a few articles have been published 
which compare and rank the various 2-80, 8080, 6800, and 6502 
systems based on the speed with which they execute a given BASIC 
program. Some of us cannot resist the impulse to show them up by 
recoding the benchmark in our favorite language on our favorite 
processor, uSing our favorite secret tricks for trimming 
microseconds, 


"A High-Level Language Benchmark” (by Jim Gilbreath, BYTE, 
September, 1981, pages 180-198) is just such an article. Jim 
compared execution time in Assembly, Forth, Basic, Fortran, COBOL, 
PL/I, C, and other languages; he used all sorts of computers, 
including the above four, the Motorola 68000, the DEC PDP 11/70, 
and more. He used a short program which finds the 1899 primes 
between 3 and 16384 by means of a sifting algorithm (Sieve of 
Eratosthenes). 


His article includes table after table of comparisons. Some of 
the key items of interest to me were: 


Language and Machine Seconds 
Assembly Language 68000 (8 MHz) 1.12 
Assembly Language 280 6.80 
Digital Research PL/I (280) 14.0 
Microsoft BASIC Compiler (280) 18.6 
FORTH 6502 265. 
Apple UCSD Pascal 516. 
Apple Integer BASIC 2320. 
Applesoft BASIC 2806. 
Microsoft COBOL Version 2.2 (280) 5115. 


There is a HUGE error in the data above; I don't know if it is the 
only one or not. The time I measured for the Apple Integer BASIC 
version was only 188 seconds, not 2320 seconds! How could he be 
so far off? His data is obviously wrong, because Integer BASIC in 
his data is too close to the same speed as Applesoft. 


I also don't know why they neglected to show what the 6502 could 
do with an assembly language version. Or maybe I do....were they 
ashamed? 


William Robert Savoie, an Apple owner from Tennessee, sent me a 
copy of the article along with his program. He “hand-compiled" 
the BASIC version of the benchmark program, with no special tricks 
at all. His program runs in only 1.39 seconds! That is almost as 
fast as the 8 MHz Motorola 68000 system! The letter that 
accompanied his program challenged anyone to try to speed up his 
program, 


How could I pass up a challenge like that? I wrote my own version 
of the program, and cut the time to .93 seconds! Then I made one 
small change to the algorithm, and produced exactly the same 
results in only .74 seconds! 
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Looking back at Jim Gilbreath's article, he concludes that 
efficient, powerful high-level languages are THE way to go. He 
eschews the use of assembly language for any except the most 
drastic requirements, because he could not see a clear speed 
advantage. He points out the moral that a better algorithm is 
superior to a faster CPU. (Note that his algorithm is by no means 
the fastest one, by the way.) 


Here is Gilbreath's algorithm, in Integer BASIC: 


10 S=8190: DIM F(8191) :N=0 

20 FOR I=0 TO S:F(I)=l1: NEXT I 

30 FOR I=0 TO S: IF F(1I)=0 THEN 80 
40 P=I+I+3:K=I+P 

50 IF K>S THEN 70 

60 F(K)=0:K=K+P: GOTO 50 

70 N=Nt+tl: REM PRINT P;" "°; 

80 NEXT I 

90 PRINT : PRINT N;" PRIMES": END 


NEW UTILITIES FOR S-C ASSEMBLER 


GLOBAL SEARCH & REPLACE 


REPLACES LABEL NAMES QUICKLY AND EASILY 
SEARCH ALL OR PART OF SOURCE CODE 
OPTIONAL PROMPTING FOR USER VERIFICATION 
PROGRAM DISKETTE + DOCUMENTATION: $ 20, 22 


Cross REFERENCE TABLE 


A COMPLETE CROSS REFERENCE OF GLOBAL LABELS BY LINE # 
TABLE GENERATED IN ALPHABETICAL ORDER 

LEADING LABEL LINE NUMBERS HIGHLIGHTED 

SEE EXAMPLE OUTPUT IN AD OF APRIL “APPLE ASSEMBLY LINE’ 
PROGRAM DISKETTE AND DOCUMENTATION: $ 20, 22 


THE ABOVE MACHINE LANGUAGE UTILITIES ARE FOR USE WITH THE 
S-C ASSEMBLER VERSION 4,0 
RAK-WARE 


41 Ralph Road 
West Orange, NJ 07052 
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The REM tagged onto the end of line 70, if changed to a real PRINT 
statement, will print the list of prime numbers as they are 
generated. Of course printing them was not included in any of the 
time measurements. According to my timing, printing adds 12 
seconds to the program. 


I modified the algorithm to take advantage of some more prior 
knowledge about sifting: There is no need to go through the loop 
in lines 50 and 60 if P is greater than 127 (the largest prime no 
bigger than the square root of 16384). This means changing line 
40 to read: 


40 P=ItI+3 : IF P>130 THEN 70 : K=I+P 


This change cut the time for the program from 188 seconds to 156 

seconds, My assembly language version of the original algorithm 

ran in .93 seconds, or 202 times faster; the better algorithm ran 
in .74 seconds, or almost 211 times faster. 


William Savoie has done a magnificent job in hand-compiling the 
first program. He ran the program 100 times in a loop, so that he 
could get an accurate time using his Timex watch. Here is the 
listing of his program, 


WRITe NOUW 


Southwestem Data Systems, an industry pioneer in innova- 
tive software for the Appie ll, is always looking for authors. There 
are no limitations on the size or type of software you can 
submit — utilities, communication, business, education, or 
games — the only requirement is that it must meet the Quality 
standards which typify all SDS products. When you join the SDS 
team, you get the benefits of a professional support staff 
experienced in providing all you need to get your program to 
market. Here are some of the ways we help you: 


@ TECHNICAL PROGRAMMING ASSISTANCE 

@ UNIQUE COPY PROTECTION W/LIMITED BACKUPS 
@ SUCCESSFUL MARKETING STRATEGIES 

@ ASSISTANCE IN WRITING THE MANUAL 

@ PROFESSIONAL PRODUCT ARTWORK 

@ QUALITY ADVERTISING 

@ SUPERIOR PACKAGING 

®@ NATIONAL DISTRIBUTION 

@ HIGHEST ROYALTIES PAID MONTHLY 

@ CUSTOMER SERVICE SUPPORT 


This is the opportunity you have been waiting for, a chance 
to market your program with the finest Publisher in the soft- 
ware industry. Let Southwestern Data Systems’ reputation and 
proven track record for success go to work for you. If you think 
you have what we want — a unique and distinctive software 
package — please call or wiite us today! 


soutmwesternn data svstems 
P.O. BOX 582 SANTEE, CA 92071 (714) 562-3670 


Page 4....Apple Assembly Line....October, 1981....Copyright (C) S-C SOFTWARE 


1000 * 
1096 * SIEVE PROGRAM: 
1020 CALCULATES FIRST 1899 PRIMES IN 1.39 SECONDS! 
1940 : INSPIRED BY JIM GILBREATH, BYTE, 9/81 
1060 * WRITTEN BY WILLIAM ROBERT SAVOIE 
1070 * 4405 DELASHMITT RD, APT 15 
1080 HIXSON, TENN 37343 
3500- 1100 BUFF .EQ $3500 START OF BUFFER (#BUFF=0) 
1FFD- 1110 SIZE _-EQ 8189 SIZE OF FLAG ARRAY 
1130 . PAGE-ZERO VARIABLES 
0006- 1150 INDEX . 6 PAGE ZERO INDEX (LOCATION FOR I) 
0008- 1160 : : PRIME LOCATION 
0019- 1170 KVAR . 1 K VARIABLE 
001B- 1180 : 1B COUNT OF PRIME 
001D- 1190 ARRAY . 1D ARRAY POINTER 
001F- 1200 SAVE. iF COUNT LOOP 
21 
1220 : ROM ROUTINES 
FC58- 134 HOME . 58 CLEAR VIDEO 
FD8E- 50 : 8E CARRIAGE RETURN 
FD9SE- 1260 LINE ; SE PRINT "-" 
F940- 1270 PRININ . 940 PRINT 2 BYTE NUMBER IN HEX 
FBE2- 1280 B : 2 SOUND BELL WHEN DONE 
1300 * RUN PROGRAM 100 TIMES FOR ACCURATE TIME MEASUREMENTS |! 
O800- 20 58 FC 1320 START JSR HOME CLEAR SCREEN 
0803- 20 BE FD 1330 CR 
0806- A9 64 ~=—«1340 LDA #100 LOOP 100 TIMES 
0808- 85 1F 1350 A SAVE SET 
OBOA- 20 18 08 +398 .01 JSR GO RUN PRIME 
Cé IF DEC SAVE DECREASE SAVE 
O80F- DO F9 01 LOOP 
- 20 BA 08 JSR PRINT § PRINT COUNT 
Bite 28 BD 08 sey Bert 


APPLE 8-BIT 8-CHANNEL A/D SYSTEM 


» 8-BIT RESOLUTION >» ELIMINATES NEED TO WAIT FOR A/D CON- 
ON BOARD MEMORY aehia 
» = 
(Just peek at data) we eee TOTALLY TRANSPARENT 
» FAST CONVERSION - » FULL SCALE INPUTS CAN EASILY BE 
(.078 ms per channel). CHANGED BY USER. 


APPLIED ENGINEERING’S A/D board is a breakthrough product for all APPLE owners 
giving real world data at a really affordable price. Diverse applications include monitoring 
of: 


sondern TEMPERATURE......HUMIDITY......WINDSPEED...... WIND DIRECTION.... 
Chet eas LIGHT INTENSITY.......PRESSURE.......RPM.......SOIL MOISTURE 


CONTRIBUTED PROGRAMS ARE DISTRIBUTED FREE TO ALL A/D OWNERS IN OUR NEWSLETTER. 


MASTER CHARGE & VISA WELCOME 
See your dealer or contact - ni | 


APPLIED ENGINEERING 99 (214) 492-2027 
P.O. BOX 470301 G\ 7:00 AM - 11:00 PM 7 DAYS A WEEK 
DALLAS, TEXAS 75247 APPLE PERIPHERALS ARE OUR ONLY BUSINESS 
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, 
; 


1420 
1430 
1440 
0818- AO 00 ~=——:«:1450 
O8lA- 84 1B 60 CLEAR COUNT VARIABLE 
81C- 84 1470 STY CVAR+1] HI BYTE TOO 
Or OF HRS FBS, GR LN 
822- 84 1500 Y LOW BYTE 
24- AI 35 ~——1510 F GET BUFFER LOCATION 
26- 85 IE ~=1520 A Y+l SET ARRAY POINTER 
0828- AS O1 30 LDA #S01 LOAD 
082A- A2 1F 1540 LDX /SIZE LOAD STOP BYTE 
082Cc- E8 1550 , MAKE PAGE LARGER 
1570 » SET EACH ELEMENT IN ARRAY TO ONE 
082D- 91 1D 1590 SET STA (ARRAY) ,Y SET MEMORY 
082F- 88 1600 NEXT LOCATION 
0830- DO 1610 BNE SET GO 256 TIMES 
0832- E6 1E 1620 INC ARRAY +1 MOVE ARRAY INDEX 
0834- CA 16 TEST END 
0835- DO F6 16 BE SET GO TELL END 
1660 * SET ARRAY INDEX AT START OF BUFFER 
0837- A9 00 ~=——*‘1670 LDA #BUFF SET BUFFER LOCATION 
0839- 85 ID 1680 STA Y IN ARRAY POINTER LOW 
083B- A9 35 1690 LDA F SET BUFFER LOCATION 
083D- 85 1E «1700 STA Y+] IN ARRAY POINTER 
083F- 4C 48 08 1710 JUMP FORIN ENTER SIEVE ALGORITHM 
1730 * SCAN ENTIRE ARRAY AND PROBAGATE LAST PRIME 
0842- E6 06 #1740 FORNXT INC INDEX INCREASE LOW BYTE 
0844- DO 02.—Ss-17 BNE GO IF < 256 
0846- E607 1760 INC INDEX+] INCREASE HI BYTE 
0848- AS 06 1770 FORIN LDA INDEX GET INDEX TO ARRAY 
O84A- 18 1780 CLC READY ADD 
084B- 85 1790 STA SAVE LOW BYTE 
084D- 07 180 LDA INDEX+] GET HI BYTE 
84F- 69 7 ADC ADD BUFFER LOCATION 
0851- 85 1E 1820 STA Y+1 SET POINTER 
0853- AO 00 1830 LDY #00 * yCLBAR Y REGISTER 
p23- Bh 28 +828 Boa faRRy . cot PrRCHO SING E NOT PRIME 
1860 * CALCULATE NEXT PRIME NUMBER WITH P=I+I+3 
0859- A5 06 ~=- 1870 LDA INDEX MAKE P=I+3 
2B fe 83 «+888 GOK prime ADD THREE 
O85F- A5 07 ~=1900 LDA INDEX+] 
861- 69 00 1910 #00 ADD CARRY 
0863- 85 09 1920 STA PRIME+1 
1930 * NOW P=I+3 
0865- A5 08 ~==1940 LDA PRIME 
0867- 65 1950 ADC INDEX MAKE P=P+I 
0869- 85 0 1960 
O86B- A5 0 1970 LDA PRIME+1 
O86D- 65 07 ~- 1980 ADC INDEX+] ADD HI BYTE 
O86F- 85 09 1990 STA PRIME+] SAVE P 
3808 * NOW CALCULATE K=I+PRIME (CLEAR BEYOND PRIME) 
0871- A5 06 =. 2020 LDA INDEX ADD I 10 P 
0873- 65 08 2030 ADC PRIME 
08 7- 8 49 2049 STA KVAR SAVE IN K 
7 5 LDA INDEX+] 
0879- 65 09 2060 ADC PRIME+] ADD HI BYTE TOO 
087B- 85 1A _—.2070 STA KVAR+tl] SAVE K VALUE 
3086 * SEE IF K > SIZE AND MODIFY ARRAY IF NOT 
O87D- AS 19 2100 .02 LDA KVAR GET K VAR 
O87F- 38 2110 SEC SET CARRY FOR SUB 
O0880- E9 FD _—s2120 SBC #SIZE. SUBTRACT SIZE 
0882- A5 2130 LDA KVARt1l GET HI BYTE 
884- E9 IF 2140 SBC /SIZE TOO 
0886- BO IE —21150 BCS .03 GO IF K < SIZE 
3160 * ASSIGN ARRAY (K)=0 SINCE PRIME CAN BE ADDED TO MAKE NUMBER 
* THEREFORE THIS CANNOT BE PRIME! (PROBAGATE THROUGH ARRAY 
O08s88- A5 19 ~=—2180 KVAR NDEX TO 
88A- 85 2190 STA ARRAY VE BYTE 
BoC A 2200 LDA +1 GET HI BYTE 
E- 6 221 ADC F ADD BUFFER OFFSET 
890- 85 1E 2220 STA Y+1 SAVE ARRAY INDEX 
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0892- AY 00 2 LDA #00 


z $39 TAY AND ¥_ REGISTER 
BE OF a BEE LUN NCR Loc ony 
7 KVAR GET K LOW 


0897- A5 19 2270 LDA 
0899- 65 08 2280 ADC PRIME ADD PRIME 
089B- 85 19 2290 STA KVAR SAVE K 
089D- A5 IA ~—_—- 2300 LDA KVAR+] NOW ADD HI BYTES 
89F- 65 09 3 19 ADC PRIME+1 
- §5 A STA KVAR+ 
BAe G2 08 2330 JMP .02 LOOP TELL ARRAY 
2340 * now COUNT PRIMES FOUND (C=C+1) 
2360 + °—-NOTE— DELETE NEXT LINE TO TIME PROGRAM (JSR PRINTP) 
O8A6- 20 C2 08 2370 JSR PRINIP PRINT PRIME 
08A9- E6 1B = 2380 INC CVAR ADD ONE 
O8AB- 2390 BNE GO IF NO OVERFLOW 
gRAD- EG ie 3A8 od ERK INDEX GET INDEX 
2420 * TEST TO SEE IF WE HAVE INDEXED | THROUGH ENTIRE ARRAY 
O8B1- E9 FD ~—_-2430 SBC #SIZE SUBTRACT SIZ 
OBB3- A u 3440 PBK FX+] GET HI BYTE 700 
- Spc /SIZE SUBTRACT HI BYTE 
08B7- 56 #9 2460 BCC FORNXT CONTINUE? 
O8BS— 60 2470 | RTS 
3480 * PRINT THE NUMBER OF PRIMES FOUND 
O8BA- A41C 2510 PRINT LDY CVAR+1 GET HI BYTE OF COUNT 
O8BC- Ab 1B 2520 LDX CVAR 
O8BE- 20 40 F9 2530 JSR PRININ PRINT PRIMES FOUND 
O8C1- 60 240 . RTS JOB DONE, RETURN 
2760 7 PRINI THE PRIME NUMBER (OPTIONAL) 
08C2- A4 09 2580 PRINIP LDY PRIME+1] HI BYTE 
O8C4- A6 08 _—«- 2590 LDX PRIME 
O8C6- 20 40 F9 2600 JSR PRINTN 
Osc 20 9F FD 2610 JSR LINE VIDEO "—" OUT 
oscc- 3 2620 SEC 
O8CD- 60 2630 RTS 


APPLE MUSIC SYNTHESIZER BREAKTHROUGH 


« COMPLETE 16 VOICE MUSIC SYNTHESIZER ON ONE CARD, JUST PLUG IT INTO YOUR APPLE, CONNECT THE 
pea con Pilla TO YOUR STEREO AND BOOT THE SUPPLIED DISK AND YOU'RE READY TO ENTER 


*(iTS EASY TO PROGRAM MUSIC WITH aye yagi SOFTWARE. YOU'LL START RIGHT AWAY AT 
INPUTTING YOUR FAVORITE SONGS. OUR MA L SHOWS YOU HOW, STEP BY STEP. THE HI-RES SCREEN 
SHOWS WHAT YOU'VE ENTERED IN STANDARD: SHEET MUSIC FORMAT. 


* WE GIVE YOU LOTS OF SOFTWARE. IN ADDITION TO “COMPOSE” AND PLAY PROGRAMS, THE DISK IS FULL 
OF SONGS READY TO AUN. 


¢ FOUR WHITE NOISE GENERATORS (GREAT FOR SOUND EFFECTS). 
* PLAYS MUSIC IN TRUE STEREO AS WELL AS TRUE DISCREET QUADRAPHONIC. 


¢ ENVELOPE CONTROL (VOLUME) 


e WILL PLAY SONGS WRITTEN FOR ALF SYNTHESIZER (ALF SOFTWARE WILL NOT TAKE ADVANTAGE OF ALL 
THE FEATURES OF THIS BOARD, THEIR SOFTWARE SOUNDS THE SAME ON OUR SYNTHESIZER). 


¢ AUTOMATIC SHUTOFF ON POWER-UP, OA IF RESET IS PUSHED. 
¢ MANY, MANY MORE FEATURES. 


ALCDADENS Sele SAE DAY MASTER CHARGE & VISA WELCOME 


SEND $159.00 CHECK OR MONEY ORDER 
(214) 492-2027 


(TEXAS RESIDENTS ADO 5% SALES TAX) 

APPLIZD ENGINERRING 

P.O. BOX 470301 7:00 AM - 11:00 PM 7 DAYS A WEEK 
DALLAS, TEXAS 75247 APPLE PERIPHERALS ARE OUR ONLY BUSINESS 
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Here is a listing of my fastest version. 


l 0 * NS RN 
1898 * SIEVE PROGRAM: 
1020 * CALCULATES FIRST 1899 PRIMES IN .74 SECONDS! 
1040 * INSPIRED BY JIM GILBREA' 
1050 * (SEE BYTE MAGAZINE, 9/81, PAGES 180-198.) 
1060 * AND BY WILL ACRE & VOLE 
1070 * 4405 DELASIMITT RD. APT 15 
1980 * _HIXSON, TENN 37343 
3500- 1100 ARRAY ER $3500 FLAG BYTE ARRAY 
2000- 1110 § SIZE 192 SIZE OF FLAG ARRAY 
1139 * PAGE-ZERO VARIABLES 
0006- 1150 A.PNTR .EQ $06,07 POINTER TO FLAG ARRAY FOR OUTER LOOP 
9908- 1169 B.PNIR . i fe POINTER TO FLAG ARRAY FOR INNER LOOP 
B- PRIME : Br C LATEST PRIME NUMBER 
001D- 1180 COUNT : t OF PRIMES SO FAR 
OOLF- 1190 TIMES .EQ COUNT LOOP 
1210 * APPLE ROM ROUTINES USED __ 
F940- 1230 PRININ . 949 PRINT 2 BYTE NUMBER FROM MONTTOR 
FC58- 134 HOME ; CLEAR VIDEO 
FD8E- 50 : CARRI 
FD9E- 1260 L “ED PRINT "—" 
FBE2—- 1270 BELL EO ELL .6Q $FBE2 SOUND BELL WHEN DONE 
1290 * RUN PROGRAM “RUN PROGRAM 100 TIMES FOR ACCURATE TIME MEASUREMENTS! 
0800- 20 58 FC 1310 START JSR HOME CLEAR SCREEN 
- AD 64 1320 LDA #100 LOOP 100 TIMES 
- 85 3 STA TIMES SET COUNTER 
0807- 20 21 08 1340 .1 JSR GENERATE, PRIMES 
O80A- AD 00 04 1350 LDA $400 MOGGLE SCREEN FOR VISIBLE INDICATION 
o80D- 49 0 1 60 BOR 80 THAT PROGRAM IS STILL RUNNING 
F- 004 1 STA 
2 DEC 
-DOF BNE . LOOP 
- 20 F2 FB JSR BELL READ WATCH! 
= LDY COUNT+1 GET HI BYTE OF COUNT 
O81B- A6 1D __—1420 LDX COUNT 
081D- 20 40 F9 1430 JSR PRININ PRINT PRIMES FOUND 
0820- 6 1440 . RTS 
1460 * GENERATE THE PRIMES 
1480 GENERATE. PRIMES 
0821- AO 00 ~=—+1490 LDY #0 CLEAR INDEX 
0823- 84 1D _—«1500 STY COUNT CLEAR COUNT VARIABLE 
0825- 84 1E ~—«-'1510 STY COUNT+1 
0827- 84 06 1520 STY SET UP POINTER FOR OUTER LOOP 
829- AI 35 ~—-: 1530 LDA 
082B- 85 07 1540 STA A.PNIR+1 
082D- A9 01 =: 1550 LDA #1 LOAD WITH ONE 
082F- A2 20 1560 : LDX /SIZE NUMBER OF PAGES TO STORE IN 
1580 * SET EACH ELEMENT IN ARRAY TO ONE 
0831- 9106 1600 .1 STA (A.PNIR),Y SET FLAG TO l 
0833- C8 1610 INY "NEXT LOCATION 
0834- DO FB. _—«- 1620 1 GO 256 TIMES 
0836- F607 1630 its A.PNIR+1 POINT AT NEXT PAGE 
083 ~ CA 1640 NEXT PAGE 
0839- DO F6 1650 . BE 1 MORE PAGES 
1670 * SCAN ENTIRE ARRAY, LOOKING FOR A PRIME 
083B- A9 35 ~—s«1690 LDA /ARRAY SET A.PNIR TO BEGINNING AGAIN 
083D- 85 07 ~=—«:1700 STA A.PNIR+1 
083F- AO 00 ~=—i1710 .2 LDY #0 CLEAR INDEX 
0841- Bl 06 1720 LDA (A. PNIR),Y LOOK AT NEXT FLAG 
0843- FO 44 ~=—1730 BEO . ‘NOT PRIME, ADVANCE POINTER 
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0845- 3 
0846- 07 
0848- E9 35 


OB4n- AS 06 


0861- BO 20 


* 


17 a 
1750 * CALCULATE CURRENT INDEX INTO FLAG ARRAY 


1770 SEC 

1780 LDA A.PNIR+1 

1790 SBC /ARRAY 

+800 TAX SAVE HI-BYTE OF INDEX 

1810 | LDA A.PNIR LO-BYTE OF INDEX 

1830 * CALCULATE NEXT PRIME NUMBER WITH P=I+I+3 

1800 ASL DOUBLE THE INDEX 

1860 TAY 

1870 TXA HI-BYTE OF INDEX 

1880 ROL 

1890 TAX 

1900 TYA NOW ADD 3 

1910 ADC #3 

1920 STA PRIME 

1930 BCC .3 

1940 INX 

1950 33 STX PRIME+1 

135} * FOLLOWING 4 LINES CHANGE ALGORITHM SLIGHTLY 

1980 ¥ TO SPEED IT IT UP FROM .93 TO .74 SECONDS 

200 TXA TEST HIGH BYTE 

3008 BNE .5 PRIME > SORT (16384) 

2020 CPY #127 

2030 : BCS .5 PRIME > SORT (16384) 

3048 & NOW CLEAR EVERY POTH ENDRY AFTER P 

2060 *—$$—$ $$ ______________—_-——— 

2070 IDY #0 

$88 LDA A.PNTR USE CURRENT OUTER POINTER FOR 
00 LDA A.PNIR+1 INNER POINTER 

2110 STA B. +] 

4t g CLC BUMP ARRAY POINTER BY P 

4 LDA B.PNIR BUMP TO NEXT SLOT 

2140 ADC 

2150 STA B.P 

3160 LDA B.PNIR+1 
70 ADC P 

2180 STA B.PNIR+1 

$190 CMP /ARRAY+SIZE SEE IF BEYOND END OF ARRAY 
200 BCS 5 YES, FINISHED CLEARING 

2210 NO, CLEAR ENTRY IN ARRAY 

2220 STA (B.PNIR) ,Y 

2230 . 4 » « eALWAYS 

3350 * NOW COUNT PRIMES FOUND (C=Ct1) 

2270 . 

2280 * JSR PRINTIP PRINT PRIME 

2290 INC 

2300 BNE .6 

2338 . INC COUNT+1 

2330 * ADVANCE OUTER POINTER AND TEST IF FINISHED 

2350 .6 INC A, PNIR 

2360 7 

2370 INC A.PNTR+] 

2380 .7 LDA A.PNIR+] 

2390 CMP /ARRAY+SIZE 

24 9 2 

241 

2420 *——_—__-_—_—_—_______-__--—______ -______ 

2430 * OPTIONAL PRINT PRIME SUBROUTINE 

2450 PRINIP LDY PRIME+] HI BYTE 

460 LDX PRIME 

2470 JSR PRINTIN PRINT DECIMAL VAL 

2480 JSR LINE VIDEO "—" OUT 

2490 RTS 
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Michael R. Laumer, of Carrollton, Texas, has been working for 
about a year on a full-scale compiler for the Integer BASIC 
language. He has it nearly finished now, so just for fun he used 
it to compile the algorithm from Gilbreath's article. Mike used a 
Slightly different form of the Integer BASIC program than I did, 
which took 238 seconds to execute. But the compiled version ran 
in only 20 seconds! If you are interested in compiling Integer 
BASIC programs, you can write to Mike at Laumer ReSearch, 1832 
School Road, Carrollton, TX 75006. 


If you want to, you can easily cut the time of my program from .74 
to about .69 seconds. Lines 1600-1650 in my program set each byte 
in ARRAY to $01. If I don't mind the extra program length, I can 
rewrite this loop to run in about 42 milliseconds instead of the 
over 90 it now takes. Here is how I would do it: 


ol STA ARRAY ,Y 
STA ARRAY+$100,Y 
STA ARRAY+$200,Y 
STA ARRAY+$300,Y TOTAL OF 32 
. LINES LIKE THESE 


STA ARRAY+$1E00,Y 
STA ARRAY+S1F00,Y 
INY 

BNE .l 


If you can find a way to implement the same program in less than 
-69 seconds, you are hereby challenged to do so! 


Time II 


The most powerful, easiest to use, clock for your APPLE 


* TIME IN HOURS, MINUTES AND SECONDS. 


¢ DATE WITH YEAR, MONTH, DATE, DAY OF WEEK AND 
LEAP YEAR. 7 


* FAST DATE ANO TIME SETTING. 


* PAOGRAM SELECTABLE 24 HOUR MILITARY FORMAT 
OR 12 HOUR WITH AM/PM FORMAT. 


¢ + 30 SECOND ADJUST. 


¢DIP SWITCH SELECTABLE INTERRUPTS PERMIT 
FOREGROUND/BACKGAROUND OPERATION OF TWO 
PROGRAMS SIMULTANEOUSLY SO YOU CAN CALL UP 
SCHEDULES, TIME EVENTS, OATE LISTINGS, AND 


OTHER PRINTOUTS. 
° INCLUDES 16 SECTOR DISK WITH OVER 25 CON. 
¢ CRYSTAL CONTROLLED FOR .0005% ACCURACY. TRIBUTED PROGRAMS SO YOU CAN PUT YOUR TIME II 
*LATCHED INPUT ANO OUTPUT PORTS FOR THE TO USE RIGHT AWAY. 
EASIEST PROGRAMMING IN BASIC. 


e ON BOARD BATTERY BACKUP POWER FOR OVER 4 * TWENTY-THREE PAGE OPERATING MANUAL 


MONTHS POWER OFF OPERATION (BATTERY INCLUDED, WITH MANY EXAMPLES OF PROGRAMS TO 
CHARGES WHEN APPLE !S ON). USE WITH YOUR APPLE IN ANY CONFIGURATION. 


ALL ORDERS SHIPPED SAME DAY MASTER CHARGE & VISA WELCOME 
SENO $129.00 CHECK OR MONEY ORDER 


(TEXAS RESIDENTS ADO 5% SALES TAX) ms 
AZPUZD ENGINEZANG (214) 492-2027 Ge 


P.O. BOX 470301 7:00 AM - 11:00 PM 7 DAYS A WEEK 
DALLAS, TEXAS 75247 APPLE PERIPHERALS ARE OUR ONLY BUSINESS 
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Decision 
Decision Systems 


S P.O. Box 13006 
ystems Denton, TX 76203 
817/382-6353 


DIS-ASSEMBLER 


DSA-DS dis-assembles Apple machine language programs into forms 
compatible with LISA, S-C ASSEMBLER (3.2 or 4.0), Apple's TOOL- 
KIT ASSEMBLER and others. DSA-DS dis-assembles instructions or 
data. Labels are generated for referenced locations within the 
machine language program. 

$25, Disk, Applesoft (32K, ROM or Language card) 


OTHER PRODUCTS 


ISAM-DS is an integrated set of Applesoft routines that gives indexed file capabilities 
to your BASIC programs. Retrieve by key, partial key or sequentially. Space from 
deleted records is automatically reused. Capabilities and performance that match 
products costing twice as much. 

$50 Disk, Applesoft. 


PBASIC-DS is a sophisticated preprocessor for structured BASIC. Use advanced 
logic constructs such as IF...ELSE..., CASE, SELECT, and many more. Develop 
programs for Integer or Applesoft. Enjoy the power of structured logic at a fraction of 
the cost of PASCAL. 

$35. Disk, Applesoft (48K, ROM or Language Card). 


FORN-DS is a complete system for the definition of input and output froms. FORM- 
DS supplies the automatic checking of numeric input for acceptable range of values, 
automatic formatting of numeric output, and many more features. 

$25 Disk, Applesoft (32K, ROM or Language Card). 


UTIL-DS is a set of routines for use with Applesoft to format numeric output, selec- 
tively clear variables (Applesoft’s CLEAR gets everything), improve error handling, 
and interface machine language with Applesoft programs. Includes a special load 
routine for placing machine language routines underneath Applesoft programs. 

$25 Disk, Applesoft. 


SPEED-DS is a routine to modify the statement linkage in an Applesoft program to 
speed its execution. Improvements of 5-20% are common. As a bonus, SPEED-DS 
includes machine language routines to speed string handling and reduce the need for 
garbage clean-up. Author: Lee Meador. 

$15 Disk, Applesoft (32K, ROM or Language Card). 


(Add $4.00 for Foreign Mail) 


“Apple Il is a registered trademark of the Apple Computer Co. 
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6809 Cross Assembler 


Chris Wiggs, of Rockford, IL, has developed a cross assembler for 
the 6809 which runs in the Apple. In fact, it is really a set of 
patches to the S-C Assembler II Version 4.0. If you BLOAD your 
copy of the assembler, and then BRUN his patch file, and BSAVE the 
result, you have a brand new assembler for 6809 code. 


It is set up to work with "The Mill". Typing MGO turns on the 
mill and starts 6809 code executing, while the Apple's 6502 is 
left in a waiting loop. 


Chris has authorized me to distribute these patches. For only $20 
you will get a disk which includes all of the source code for the 
patches (in S-C Assembler II Version 4.0 format), the 
already-assembled patch file, a sample 6809 program, and some 
instructions (in the form of an assembly source file of comments). 


I have not put this program through any rigorous test, but Chris 
is using it himself and is satisfied that it is working correctly. 
Anyway, you will actually have the SOURCE code, so you can make 
any further changes you wish with ease. 


You might also study how he did it, and then write a cross 
assembler for some other chip, such as 2-80, 68000, 1802, TMS7000, 
or whatever. 


Here is a sample 6809 assembly: 


1000 * 
1898 * 6809 MULITI-PRECISION ADDITION SUBROUTINE 
1920 * FROM "6809 ASSEMBLY LANGUAGE ING", 
1030 * LANCE , OSBORNE ILL, 
1040 * PAGE 11-7 
1050 * 
1060 * CALL: JSR MPAD 
1070 * -DA #N NUMBER OF BYTES TO ADD 
1080 * “DA ARG] ADDRESS OF FIRST ARGUMENT 
1090 * “DA ARG2 ADDRESS OF 2ND ARGUMENT 
1100 . eDA SUM ADDRESS FOR SUM 
0800- 34 77 1120 MPADD PSHS X,Y,U,A,B,CCR SAVE ALL REGISTERS 
0802- FF 69 ~=«-1130 IDU 9;S ACCESS PARAMETER LIST 
0804- 37 34 1140 PULU X,Y,B GET LENGTH AND ADDRESSES OF ARGS 
Oboe iC FE 11e0 1Dy E CLEAR CARRY ma START SUM 
O80A- A6 80 ~=——:'1170 21 LDA iv GET BYTE FROM 1 
OB0C- Ad A 1180 ADCA /Y ADD FROM 2ND ARG 
OB1D- GAS 1300 Dee oO) RP EES ADDERS 
O811- 26 F7 1398 BNE .1 
0813- FE 69 1220 pu 9,S ADJUST RETURN ADDRESS PAST 
0815- 33 47 1230 LEAU 7/U ARGUMENT LIST 
0817- EF 69 1240 9,S 
0819- 35 F7 1250 PULS P{,U,Y,X,B,A,CCR RESTORE REGISTERS, RETURN 
SYMBOL TABLE 
0800- MPADD 
.01=080A 
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JOHN’S DEBUGGER 
& DISASSEMBLER 


FOR 
ASSEMBLY LANGUAGE PROGRAMMING 


on THE APPLE Il computer 


now rou CAN TRACE or STEP any 6502 INSTRUCTION 
LOCATED ANYWHERE IN MEMORY 


BEGIN DEBUGGING FROM ANY POINT WITHIN YOUR PROGRAM 
COMPUTES EFFECTIVE ADDRESS FOR ALL ADDRESSING MODES 
& DISPLAYS ALL MEMORY CHANGES (BEFORE/AFTER) 
Options to quickly move thru your program-selected 
memory, equal. zero, leave subroutine, etc 
TRACE oGIc w/ INSTRUCTION - NOTING ALL UMPS,JUSR, etc 


STEP EACH INSTRUCTION DISPLAYING: 

-ALL REGS, STATUS & POINTER  -ACCUMULATOR IN BINARY 
-LAST 8 BYTES ON THE STACK -DISPLAY OF ALL FLAGS SET 
~DISPLAY WHAT IS IN ANY 12 MEMORY POSITIONS WITH LABELS 
OPTIONS CAN BE USED IN ANY ORDER: STEP, TRACE, CONTINUOUS, 
ONE PAGE, SINGLE LINE, MONITOR EXIT & RETURN TO PROCESSING 


BREAKPOINT break ON KEYPRESS, CYCLE COUNTER,ETC 
(6 OPTIONS) INCLUDES TIMING DELAY FROM 0.0 to 200 SECONDS 
(ALL OF THE ABOVE SAVES THE ENTIRE PAGE OF THE STACK) 
REQUIRES: 48K (MACH LANGUAGE USES FROM 8400 TO 9600) 


JQHN'S DEBUGGER. .$ 49.95. JOHN'S DOJSASSEMBLER §$ 29.95. 
Disassembler can disassemble into both ASC II 
& 6502 instruction set simultaneously 
BOTH ON DISKETTE FOR $ 59.95 


JOHN BRODERICK, CPA 
BRODERICK & ASSOCIATES 
8635 SHAGROCK 

DALLAS, TEXAS 75238 


Apple Assembly Line....October, 1981....Copyright (C) S-C SOFTWARE....Page 13 


Extending the Apple Monitor 


Just as the creators of Applesoft included the wonderful "&" 
statement to allow language extensions, so also Steve Wozniak 
included a means for adding new monitor commands. The "“control-yYy" 
command branches to a user-defined maching language routine, which 
can supplement the existing commands in the Monitor ROM. 


The control-Y command executes your subroutine starting at S$3F8. 
All there is room for at $3F8 is a JMP to where your subroutine is 
REALLY stored. When you boot DOS, a JMP SFF65 instruction is 
inserted at $3F8, setting the control-Y command to merely re-enter 
the monitor. By changing the address of that JMP instruction, you 
can have it jump to your own code. If you look ahead at the 
listing of MONITOR EXTENSIONS, lines 1170-1210 store the address 
of my CTRLY subroutine into the JMP instruction. 


I have thought of at least three features that I miss all the time 
in the monitor. (I just now thought of several more, but they 
will have to wait for another article.) 


1. The monitor already includes the ability to add and 
subtract single-byte values, and print the single-byte 
result. I would like to be able to do this with 16-bit 
values, 


2. The monitor can already dump memory in hexadecimal, 
but I want to see it as ASCII characters also. There is 
room on the screen for both at once, 


3. The monitor can already disassemble code to the 
screen, 20 lines at a time. If I want more than 20 
lines, I can type "“LLLLLL", one L for each 20 lines. 

But I would like to be able to just specify the 
beginning and ending addresses for the disassembly, like 
I do for the hexadecimal printout. 


If you enter the MONITOR EXTENSIONS program, these three functions 
will be added to the monitor. To add or subtract two values, type 
the two values separated by "+" or "-"; then type control-Y, and 
Carriage return. To dump in combined hex and ASCII, type the 
beginning and ending addresses separated by a period, then 
control-Y and carriage return. To disassemble a range of memory, 
type the beginning and ending addresses separated by a period, 
then control-Y, "L", and a carriage return, 


Looking again at the listing, lines 1230-1340 figure out which of 
the above command options you have typed in. When the monitor 
branches to $3F8, the following conditions have been set up: 


(A) 


0 if only one address was typed; 
code for separator character if two addresses 
were typed. 
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LU) 
© 


if no hex digit typed immediately before the 
control-Y; 

= ] if any hex digits immediately before the 
control-yY. 


(X) 


(Y) = 0 
($34) 


index into input buffer of next character after 
the control-Y. 


Up to five 16-bit variables (called Al, A2, A3, A4, and 
A5) are filled from the hexadecimal values in the 
command. If you type a "<" after the first value, then 
that value will be stored in A4 and A5 (A4 is at $42,43; 
A5 at $44,45). If you type a ".", "+", "-", or "3" 
after a hexadecimal value, then that value will be 
stored in Al and A3 (Al is at $3C,3D; A3 at $40,441). If 
you type a hexadecimal value immediately before the 
control-Y, then that value will be stored in A2 (which 
is at $3E,3F). 


Looking again at lines 1230-1340, I branch to SUB if the separator 
is "-", or ADD if it is "+". If the separator is a colon, I just 
return; I don't have any control-Y command which accepts a colon 
separator. If the separator is not any of the above, then either 
there waS no separator, or it waS a period. In both of these 
cases, I want to dump memory. If the character after the 
control-Y is not "L", then I want a combined hex-ASCII dump; if it 
is "L", I want disassembly. Line 1340 increments the buffer 
pointer so that the "L" command will not be re-executed by the 
regular monitor routine after my control-Y routine is finished. 


Lines 1360-1450 control the disassembly option. I used a monitor 
subroutine to copy the beginning address from Al into PC. Then I 
wrote a loop that calles the monitor routine to disassemble one 
line, and then checks to see if we have reached the ending 
address. Compare this to the code in the monitor ROM at SFES5E 
through S$FE74. There is one trick in this code. I wanted to 
compare PC to END.ADDR, and continue if PC was less than or equal 
to END.ADDR. The normal comparison technique would either SET 
carry at line 1390, but I CLEARed it. This has the same affect as 
using one less than the value in PC as the first comparand. I 
needed this, because BCC at line 1440 only branches if the first 
comparand is LESS THAN the second one. In other words, since it 
is difficult to implement IF PC <= END.ADDR THEN ..., I 
implemented IF PC-1 < END.ADDR THEN .... 


Lines 1470-1780 perform the combined hex-ASCII dump. I must give 
Credit to Hugh McKinney, of Dunwoody, GA, for some of the ideas in 
this code. Just for fun, I set it up to always print complete 
rows Of eight bytes; the starting address is rounded down to the 
nearest multiple of 8, and the ending address is rounded up. This 
means that typing just one address will get you eight, also. 


I had to make a judgment about what characters to display for the 


ASCII portion of the dump. There are 256 possible values, and 
only 96 printing characters. In fact, if you don't have a lower 
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case adapter, your screen only shows 64 printing characters 
(unless you count inverse and flashing characters as different; in 
that case you have 192). I decided to display control characters 
(codes 00-1F and 80-9F) as flashing characters (codes 40-5F). 
Codes 60-7F and EO-FF display as lower case characters if you have 
a lower case adapter. Codes 20-5F and AO-DF display as normal 
video characters (the standard upper case set). If you want a 
different mapping, change lines 1660-1690 to do it your way. 


Lines 1800-1930 perform the 16-bit addition and subtraction in the 
normal way. Lines 1940-1980 print out an equal sign, and the 
value. 


If you get really ambitious, you might try programming for your 
Apple II Plus the S and T commands. that Apple removed from the 
Autostart ROM. You can just about copy the code right out of the 
reference manual. You might also like to add a memory move 
command that will work correctly even when the target area 
overlaps the source area. 


1000 * 
1010 * 
1020 * 
0034- 1030 MON.YSAV 
003A- 1040 PC 
003C- 1050 BGN.ADDR 
003E- 1060 END.ADDR 
0200- 1070 WBUF 
F940- 1080 MON. PRNTYX 
FDA3- 1100 MON. XAMB 
FD 1110 
FE63- 1120 MON.LIST 
FE75- 1130 : 
1140 * 
1150 
1160 * 
$309- BD be 03 tap Tur 
0305- A9 3 1188 
0307- 8D FA 03 1200 
030A- 60 1210 
1220 * 
030B- C9 AD 1230 CTRLY CMP #SAD MINUS? 
OD- FO 6B ~=:1240 BED SUB 
ga ies pe mus 
0313- C9 BA —_:1270 ae } COLON? 
15- FO 20 ~=1280 BED 
0317- A4 34 ~ 1290 LDY MON. YSAV LOOK BEYOND CONTROL-Y 
0319- B9 00 02 1300 LDA r¥ 
031C- AO 00 ~—«+1310 LDY #0 
O31F-c9 M ~—1320 CMP #'L+S$80 
0320- DO 16 1330 DUMP 
0322- E6 34 1340 . INC MON.YSAV 
0324- 20 75 FE 1360 DISASM JSR MON.AIPC 
0327- ol 1390 el LDA #1 DISASSEMBLE ONE LINE 
0329- 20 63 FE 1380 JSR MON.LIST 
032c- 18 1390 CLC 
032D- AS 3A. —-1400 LDA PC 
32F~ E5 3E ~—-:'1410 SBC END. ADDR 
0331- A5 3B. —Ss._«41420 LDA PC+] 
0333- £5 3F =1430 SBC END.ADDRt1 
0335- 90 FO —-1440 BCC .] 
0337- 60 1450 RETURN RTS 
0338- AS 3E 1470 DUMP LDA END.ADDR 
033A- 09 o7 1480 ORA #7 FINISH LAST ROW OF 8 
033E- AS 3F 1500 LDA END,ADDR+1 
§33 - 85 3 1510 STA PC+1 
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342- 3C 1520 LDA ADDR START WITH FULL ROW OF 8 
0344- 29 F8 1530 AND # 
6 46- 85 35 1540 STA ADDR 
48- 20 FD 1550 .1l JSR MON 
034B- 38 1560 SEC BACK UP POINTER FOR ROW 
4Cc- 3c 1570 LDA BGN.ADDR 
034E- E9 08 1580 SBC #8 
0350- 85 3C 1590 STA BGN.ADDR 
0352- BO 02 1600 BCS .2 
0354- C6 3D 1610 DEC ~ADDR+1 
56- A9 AO 1620 . LDA #SA0 PRINT BLANK 
0358- 20 ED FD 1630 JSR COUT 
035B- AO 00 1640 .3 LDY #0 
035D- Bl 3C 1650 LDA (BGN.ADDR) 
035F- 09 80 1660 ORA #S80 NORMAL VIDEO 
0361- C9 AO 1670 CMP SEE IF PRINTABLE 
63- BO 02 1680 BCS . YES 
0365- 49 CO 1690 EOR # MAKE CONTROLS INIO FLASHING ALPHA 
0367- 20 ED FD 1700 .4 JSR COUT PRINT IT 
036A- 20 BA FC 1710 JSR MON ADVANCE POINTER 
036D- 90 EC 1720 BCC .3 MORE ON THIS ROW 
36F- A5 3C 1730 LDA BGN.ADDR 
0371- C5 3A 1740 PC SEE IF FINISHED WITH DUMP 
0373- A5 3D 1750 LDA BGN,ADDR+] 
0375- E5 3B 1760 SBC PCt+ 
0377- 90 CF 1770 BCC .1l 
0379- 60 1780 RTS 
1790 * 
037A~- 38 1800 SUB SEC 
037B- A5 1810 LDA BGN.ADDR 
037D- E5 3E 1820 SBC END. 
037F- 1830 
0380- 3D 1840 LDA BGN.ADDR+1 
0382- E5 3F 1850 SBC END. ADDR+1 
0384- 4C 91 03 1860 AS] 
1870 * 
0387- 18 1880 ADD 
0388- A5 3c 1890 LDA BGN.ADDR 
038A- 65 3E 1900 END 
038C- AA 1910 
038D- A5 3D 1920 LDA BGN.ADDR+1 
O38F- 65 3F 1930 ADC END.ADDRt+1 
0391- A8 1382p AS1 TAY 
392- BD 1960 LDA # EQUAL SIGN 
$334 33 ED FD 1970 JSR COUT 
0397- 4c 40 F9 1980 JMP e PRNTYX 


ae = 


THE KEY TO UNDERSTANDING 
THE APPLE DOS 3.3... 


COMPUTER DATA SERVICES proudly announces Lazer Systems 
DOSOURCE 3.3. A source listing of DOS 3.3 


Randy Hyde has disassembled DOS 3 3, added 
meaningful labels and comments and came up with 
DOSOURCE 3.3. 


DOSOQUARCE 3.3 clearly lists all the routines used 
within Appie's DOS and removes the mystery that 
surrounded DOS 3 3 until now. Never before have 
the internals of DOS 3 3 been so explicitly explained 


Now professional programmers, hackers. and the 

curous Can really see what goes on inside DOS 3 3 

DOSOURCE 3.3 comes on two diskettes (four sides) 

in three formats 

@ LISA 25 compatible source listing that can be 
reassembled by LISA owners. 

@ text file listing that can be converted for use by 
other assemblers. 

8 assembied isting showing all the addresses and 
hex values with OOS 

With DOSOURCE 3.3 you can 

@ Reassembie DOS at different addresses (for 
example. the Andromeda 16K RAM board or 
language card) 

® Optimize portions of DOS 
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® Utihze those useful ‘mystery routines found 
within DOS 

@ Remove unneeded portions of DOS tor application 
programs 

® Learn all kinds of neat programming tricks 

@ Write your own DOS once you see how Apple did it 

® Become a DOS expen 

@ Write useful DOS utility programs COS will assist 
you In marketing programs you ve written for 
Appie DOS 

Special Introductory Price: $39.96 (check. COD. 

VISA “MASTERCARD) 

Lazer Systems Lower Case Plus. Keyboard Plus. and 

DOSOURCE 3 3 are all available from COMPUTER 

DATA SERVICES. 


COMPUTE 
DATA 
SERVICES 


P.O. Box 696, Amherst, NH st, NH 03031 (603) 673-7375 
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Errata 


Volume 1, Issue 12 (Sep 1981) page 8: Line 1120 in the 
CHRGET/CHRGOT subroutine should be BCS instead of BEQ. 


Volume 1, Issue 7 (Apr 1981) page 8: Insert the following lines: 


1331 TXA LINE LENGTH 

1332 TAY IN Y-REG FOR LOOP COUNT 

1333 .2 LDA $200,Y STRIP SIGN-BITS FROM EACH BYTE 
1334 AND #$7F 

1335 STA $200,Y 

1336 DEY 

1337 BPL .2 


y , 
This patch is necessary because characters Applesoft strings are 
supposed to have the sign-bit clear. Everything is fine unless 
you try compare input strings with constant strings. 


DOS Disassembly: $B052-B0B5 AND S$B35F-B7FF 


Everything from $B800 through S$BFFF has now been covered in 
previous issues of AAL. Also, the 3.3 boot ROM was covered in the 
August issue. In this issue I present the rest of the boot code 
and part of the File Manager (FM). 


Lines 1000-1570 are a subroutine inside FM which calls RWTS. The 
Main entry at line 1170 assumes (A)=opcode, (X)=track, and 
(Y)=sector. A subsidiary entry at line 1200 assumes (A) =opcode, 
and track and sector were already set up. The valid opcodes are 
SEEK=0, READ=1, WRITE=2, and FORMAT=4,. 


Lines 1580-1970 are the various exits from FM. Upon exit, 
(A)=error code and CARRY status is set if there was an error, 
Clear if not. 


Lines 1980-2560 are various buffers, constants, and variables for 
FM. Notice there are some apparently unused bytes in this area. 


Lines 2570-3690 are what is written on track 0 sector 0. It loads 
and executes BOOT.STAGE] at $0800 (execution starts at $0801). 
This code reads in RWTS and BOOT.STAGE2. Since most of this area 
was unused, patches to solve the APPEND problem are here (lines 
3020-3640). 


Lines 3700-4080 are BOOT.STAGE2, which read in the rest of DOS and 
jump to $9D84,. 


Routines to write the DOS image on tracks 0-2, to enter RWTS with 
interrupts disabled, and to clear a 256-byte buffer are in lines 
4090-4990. 


Lines 5100-5300 are the IOB and DCT used by FM for all calls to 
RWTS. The contents of these are described in the DOS Reference 
Manual pages 95-98, 
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1 
pose ge Bc BT HR 
1200 CALL 


BO58- 8D F4 


ee 
a 
58 
Sle 


AON HOM worn 
SSS BROS 
Hh 


{ 
5 
MDQAMQmONM 


3 
> 
> 
| 
Ss 
Oo 
p=s 
R® SSseSSSa SBae 


B37D- DO 06 


B? 


B7 


w 
~] 


15 
B3 
1 


350 


+ + t 


FM.EXIT.ERRI 


DOS 3.2.1/3.3 FILE MANAGER $B052-B0B5 
OR $B052 


-TA $0852 


STX IOB. TRACK 
STY IOB.SECTIOR 


RWIS. 
STA IOB.OPCODE (SEEK=0, READ=], WRITE=2, FORMAT=4) 
CMP #2 EF OCopEeybree aD . : 


BNE . 
ORA FMW.FLAGS SET “LAST OP WAS WRITE” FLAG 
FMW.FLAGS 


ILUME 
LDA -SLOT16 SLOT # TIMES 16 
STA IOB.SLOT16 
LDA FMW.DRIVE 
STA IOB.DRIVE 
LDA eee 
LDA FMW.SECTSZ+1 
STA IOB.SECTSZ+1 
LDA #1 SET TABLE TYPE 
STA IOB.TYPE 
LDY IOB.ADDR GET ADDRESS OF IOB 
LDA IOB.ADDR+1 
JSR ENTER. PERFORM THE OPERATION 
LDA IOB.ACTVO VOUME # FOUND 
STA FMP.DATA+ 
LDA #SFF a a VOLUME EXPECTED IN IOB 
BCS .2 CARRY SET IF RWIS ERROR 
RTS RETURN TO CALLER 
LDA IOB.ERROR GET ERROR CODE 
LDY #7 ERR=7 IF VOLUME MISMATCH 
CMP #520 VOLUME MISMATCH? 
BEQ YES 
LDY =4 IF WRITE PROTECTED 
10 ae PROTECTED? 
ERR=8 (I/O ERROR) FOR ALL OTHERS 
TYA IN A-REG 
JMP FM.EXIT.ERROR 
DOS 3.3 FILE MANAGER $B35F-B5FF 
OR $B35F 
-TA SOBSF 
LDA #1 "LANGUAGE NOT AVAILABLE" 
BNE FM.EXIT.ERROR 


FM. EXIT .ERR2 LDA #2 "RANGE ERROR" (OPCODE) 
FM.EXIT.ERR3 LDA #3 "RANGE ERROR" (SUBCODE) 
FM.EXIT.ERR4 LDA #4 "WRITE PROTECTED" 

EXIT. ERROR 
FM.EXIT.ERRS LDA t5 END OF DATA" 
FM.EXIT.ERR6 LDA #6 "FILE NOT FOUND" 


FM. EXIT .ERR9 


NOP 
FM.EXIT.ERRIO LDA #10 "FILE LOCKED" 
BNE FM ERROR 
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1790 * eee 
1800 FM.EXIT.GOOD 
B37F- AD C5 B5 1810 LDA FMP.RETURN GET RETURN CODE (ZERO) 
B382- 18 1820 CLC SIGNAL NO ERROR 
B383- 90 01 nae n BCC FM.EXIT ...ALWAYS 
1850 FM.EXIT.ERROR 
B385- 38 1868 + SEC 
1880 FM.EXIT 
B3ee- 08 BE 1830 a SAVE ae ae STACK 
B3 = BB &%3 1398 A #0 CLEAR MONITOR STATUS (JUST IN CASE) 
B38C- 85 4 1920 STA MON .STATUS 
B38E- 20 7E AE 1930 JSR SAVE.FMW SAVE FM WORKAREA IN FILE BUFFER 
B333- 28 1348 PLP RETRIEVE STATUS FROM STACK 
B392- AE 9B B3 1 LDX FMS.STACK RESTORE STACK POINTER 
B395- 9A 1960 TXS 
B396- 60 ah : RTS RETURN TO WHOEVER CALLED FM 
aay : SCRATCH AREA 
B397- 2010 FMS.TS.C@D .BS 2 T/S OF CURRENT DIRECTORY SECTOR 
B399- 2020 BS 2 2? 
B39B- 2030 FMS.STACK .BS 1 S-REG WHEN FM CALLED 
B39C- 2040 FMS.DIRNDX .BS 1 VARIOUS USES 
B39D- 2050 -BS 1 . 
B39E- 2060 ~BS 2 ? 
B3A0- 00 00 FF 
B3A3- FF 3070 7 eHS OOOOFFFF USED BY INIT TO CLEAR VTOC ENTRY 
B3A4— 01 OA 64 2090 -DA #1,#10,#100 DECIMAL CONVERSION TABLE 
eee 
B ol C3 a 2100 AS —/TIABSRAB/ FILE TYPE CODES 
B B2- D5 CC CF 
B3B5- D6 AO CB 
B3B8- D3 C9 C4 uty : AS -—/ EMULOV KSID/ MSG SPELLED BACKWARDS 
2130 * VTOC SECTOR BUFFER 
2140 * 
B3BB- 2150 -BS 256 
2160 * 
eren : DIRECTORY SECTOR BUFFER 
B4BB- ptt Pe BS 256 
oot ie FILE MANAGER PARAMETERS 
BSBB- 2230 FMP.OPCODE -BS 1 
BSBC- $340 FMP, -BS i 
BSBD- 50 FMP.DATA -BS 8 USE DEPENDS ON OPCODE 
B5C6- 227 -BS 1 ? 
BSC7- 2280 FMP.PNTR.WORK .BS 2 ADDR OF ee IN FILE BUFFER 
B5SC9- 2290 FMP. ° ~BS 2 ADDR OF T/S LIST IN FILE BUFFER 
BSCB- 2300 FMP.PNIR.DATA .BS 2 ADDR OF DATA IN FILE BUFFER 
B5CD- 231 -BS 4 ? 
3339 : FILE MANAGER WORKAREA 
B5D1- $340 FMW.TS.TS1 .BS 2 V/s OF FIRST T/S LIST SECTOR 
B5D3- 2360 FMW.TS.TSC .BS 2 & OF T/S LIST SECTOR 
B5D5—- 2370 FMW. -BS 1 POINT FLAGS 
5D6- 2380 FMW.TS.DATA .BS 2 T/S OF CURRENT DATA SECTOR 
B5D8- 239 eBS 2 DIRECTORY SECTOR INDEX 
BSDA- 2400 -—BS 2 # RS PER TS LIST 
BSDC- 2410 -BS 2 1ST 
B5SDE- 2420 -BS 2. LAST SECTOR+1 
BSEO- 2430 BS 2 SECTOR 
BSE2- 2440 FMW.SECTSZ .BS 2 ene arid IN BYTES 
BSE4- 2450 ~BS 4 FILE POSITION 
B5E8- 2460 «BS 2 RECORD LENGTH FROM OPEN 
BSEA- 2470 -BS 2 RECORD NUMBER 
B5EC- 2480 -BS 2 BYTE OFFSET INTO RECORD 
B5EE- 2490 -BS 2 # SECTORS IN FILE 
B5SFO- 2500 -BS 6 SECTOR ALLOCATION AREA 
BOF6- 2510 FMW.FILTYP .BS 1 
BSF 7- 2520 FMW.SLOT16 .BS 1 
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B5F8- 2530 FMW.DRIVE .BS 1 
B5F9- 2540 FMW.VOLUME .BS 1 (COMPLEMENT FORM) 
BSFA- 2550 FMW.TRACK ;BS 1 
BSFB- 2560 . "BS 5 <NOT USED> 
2580 * STAGE 1 OF BOOT (EXECUTES AT $0800) 
2600 .OR $800 
2610 "TA SEO 
2620 BOOT. STAGE] 
0800- 01 2630 “HS O01 
2640 * COMES AFTER EACH SECTOR IS READ 
0801- AS 2 2650 LDA $27 NEXT PAGE TO READ INTO 
0803- C9 09 ~—s «(266 CMP FIRST TIME HERE? 
0805- DO 1 267 BNE NO, SKIP OVER INITIALIZATION 
0807- AS 2680 LDA §2B SLOT*16 
0809- 4A 2690 LSR GET SLOT # 
O80A- 4A 2700 LSR 
O80B- 4A 2710 LSR 
O80C- 4A 2720 LSR 
O80D- 09 CO 3—._—«-273 ORA #SC0 BUILD ADDRESS INTO ROM 
O80F- 85 3F 2740 STA S3F FOR READING A SECTOR 
O811- A9 5c 3—_- 2750 LDA #$5c 
081 - 85 3E 2760 STA S3E 
815- 18 2770 CLC 
0816- AD FE 08 2780 LDA BT1.ADDR+1 COMPUTE ADDRESS OF LAST PAGE 
0819- 6D FF 08 2790 ADC BTl. TO BE READ 
O81C- 8D FE 08 2800 STA BT -ADDR+1 
1F- AE FF 810 .1 IDX BTI-N  # PAGES LEFT TO READ - 1 
0822- 30 15 2820 BMI .2 FINISHED 
0824- BD 4D 08 2830 LDA SECTOR.NUMBER,X CONVERT TO PHYSICAL SECTOR # 
0827- 85 3D 2840 STA $3D 
0829- CE FF 08 2850 DEC BT1.N 
082C- AD FE 08 2860 LDA BT1.ADDR+1 
082F- 85 27. 2870 STA 
0831- CE FE 08 2880 DEC BTL DR+1 
0834- A6 2B 890 LOX $2B SLOT*16 
0836- 6C 3E 09 2900 JMP (S3E) | READ NEXT SECTOR 
0839- EE FE 08 2910 .2 INC BT1.ADDR+] POINT AT STAGE 2 LOADER 
O83C- EE FE 08 2920 INC BT].ADDR+] 
F- FE 293 JSR MON .SETKBD 
0842- 20 93 FE 2940 JSR MON. SETVID 
a ae a baer 
O84A- 6C FD 08 2970 . JMP (BT1.ADDR) 
, : 2990 SECTOR.NUMBER 
oBs0- 03 a7 ab 3000 HS 000D0B0907050301 
0855- OF OC 0A 
0858- 08 06 04 
5B- 02 OF 3010 : -HS 0£0C0A080604020F 
3049 * DOS 3.3 PATCHES FOR APPEND AND VERIFY 
3020 A Seep 
B65D- 3070 APPEND, FLAG BS 1 
B65E- 20 64 A7 3088 a $A764 LOCATE AND FREE FILE BUFFER 
61- BO 08 ~=—- 3100 BC 
B663- A9 00 ~=—: 3110 LDA 40 CLEAR APPEND FLAG 
B665- AB 3120 TAY 
B666- 8D 5D B6 3130 A. APPEND.FLAG 
B669- 91 40 3140 STA (S40) ,Y 
B66B- AD C5 BS 3150 .1 A Ane: 
B66E- 4C D2 AG 3160 : JMP SA6D2 
3180 PATCH.DOS33.2 
B671- AD 5D B6 3190 LDA APPEND. FLAG 
B674— FO 08 3200 : 
B676- EE BD BS 3210 IN’ FMP.DATA 
B679- DO 03 3220 : 
B67B- EE BE BS 32 INC FMP.DATA+] 
B67E- A9 00 3240 1 IDA #0 CLEAR APPEND FLAG 
B680- 8D 5D B6 3250 STA APPEND.FLAG 
B683- 4C 46 AS 3260 JMP SA546 
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SSBSECERS 


COCO COCO 
WN) aS 


MOM 


F4 B7 
50 


8 04 
8 04 
3 B7 


io) 
BeBe I I II GI) IW WI) GIGI WIG) CII WII GI) 
OOO OWOO OOOO 019 © 


SERSSSUESSS SSSSASHSCSCSSSSORA 
a) 
S 
oo8 


EB B7 4040 


PATCH .DOS33.3 
STA : 
JSR SA6A8 
JSR SA2 
. JMP 
PATCH .DOS33,4 
LDY #19 LOOK AT FILE POSITION 
wl LDA ($42) -¥ 
BNE . NOT AT 0000 
INY 
CPyY #23 
BNE } TEST 4 BYTES 
2 TDA 1c Y 
on bie TA-25 ,Y 
CPY #29 MOVE 4 BYTES 
BNE ,2° 
3 JMP PAGBC 
4 IDX #SFF 
STX APPEND. FLAG 
BNE ,3 i Ss 
. .BS 29 <NOT USED> 
STRANGE CODE IN THE MIDDLE OF NOWHERE 
JSR MON. 
LDA #SC2 PRINT *BO1-00" 
JSR : 
LDA 


JER MON. PRBYTE 
21 <NOT USED> 
~OR Sp8ED 
A SO 
BT1.ADDR .DA $3600 
BTl. “DA 
: SECOND STAGE OF BOOT 
.OR $5700 
“TA SOFOO 
BOOT. STAGE2 
STX IOB.SLOT16 
STX IOB.PRVSLT 
LDA # 
STA IOB.PRVDRV 
STA IOB.DRIVE 
LDA BT. 
STA BT. 
LDA #2 
STA JOB. TRACK 
STA IOB. R 
ts DY Br eeritte 
STY IOB.BUFFER+1 
LDA 
STA IOB.OPCODE 
SLOT*16 
LSR GET SLOT # 
LSR 
LSR 
LSR 
TAX — 
LDA #6 
STA S4F8,X 
STA $478,X 
JSR RW. PA 
LDX #SFF 


TXS 
STX IOB.VOLUME 
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B741- 4C C8 BF 


4050 JMP SBFC8 Tae TO SETVID AND CLOBBER 
THE LANGU 


668 AGE CARD, IF IN SLOT 0 
B744—- 20 89 FE 407 JSR MON.SETKBD 
B747- 4C 84 9D nits A JMP $9D84 DOS HARD ENTRY 

4108 : WRITE DOS IMAGE ON TRACKS 0-2 

4120 WRITE.DOS. IMAGE 
B74A- AD E7 B7 4130 LDA BT.BT1+1 COMPUTE # OF PAGES 
B74D- 38 4140 SEC 
B74E- ED Fl B7 4150 SBC IOB.BUFFERt+1 
B751- 8D El B7 4160 STA BT. 
B754— AD E/ B/ 4170 LDA BT.BT1+1 START AT END, WORK BACKWARD 
B757- 8D Fl B7 4180 STA IOB.BUFFER+] 
B/5A- CE Fl B7 4190 DEC IQB.BUFFER+1 
BT eD- Be 02 1598 LDA #2 START ON TRACK 2 
B/SF- EC B7 STA I0B.TRACK 
B/62- AQ 04 4340 LDA #4 SECTOR 4 
B/64- 8D ED B7 42 STA IOB.SECTOR 
B767- AY 02 4240 LDA #2 
B/69- 8D F4 B7 4250 STA IOB.OPCODE 
B76C- 20 93 B7 4260 JSR RW.PAGES WRITE STAGE2 PART OF DOS 
B76F- AD E7 B7 4270 LDA BT.BT1+1 SET UP BOOT SECTOR IMAGE 
B772- 8D FE B6 428 STA BT1.ADDR+1+$B600-$0800 
B/75- 18 429 CLC COMPUTE STARTING ADDRESS OF WRITE 
B776- 69 09 4300 ADC #9 
B778— 8D Fl B7 4310 STA IOB.BUFFER+1 
B77B- A9 OA 4320 LDA #10 WRITE 10 PAGES 
B/ 8D El B7 4330 STA BT.CNT 
B780- 38 4340 SEC 
B781- E9 01 4350 SBC #1 
B783- FF B6 STA BT] .N+ poeseuene 

STA IOB.SE 


0 00 BD 
03 


Apple Assembly 


GR FW.EAGES WRITE SECTORS 9-0 ON TRACK 0 


% 


-HS 000000000000 <NOT USED> 


* 

43 : READ/WRITE A GROUP OF PAGES 

4450 * BI.CNT # ag SECTORS TO READ/WRITE 
4460 : IOB SET UP FOR FIRST TS R/W 
480 RW. PAGES 
4490 IDA BT.IOB+1 GET IOB ADDRESS 

4500 LDY BT.IOB 

4510 JSR ENTER.RWIS READ/WRITE ONE SECTOR 
4520 LDY IOB.SECTOR IGNORE ERRORS IF ANY 
4530 DEY BACK UP SECTOR # 

4540 BPL .1 STILL IN SAME TRACK 
4228 LDY #15 START WITH SECTOR 15 IN NEXT TRACK 
56 NOP 

4570 NOP 
4580 DEC IOB.TRACK BACKWARD THROUGH THE TRACKS 
230 ol STY IOB.SECTOR 

46 DEC IOB.BUFFER+] DOWN ONE PAGE IN MEMORY 
4610 DEC BI.CNTr ANY MORE PAGES TO DO? 
4620 BNE RW.PAGES YES 

183 7 RTS NO, RETURN 

4650 * ENTER RWIS 

4660 * 

4828 ENTER. RWIS 

46 PHP SAVE STATUS ON STACK 

4690 SET DISABLE INTERRUPTS 

4700 JSR RWIS CALL RWIS , 

4710 BCS .1 ERROR 

20 RESTORE STATUS 

4730 SIGNAL NO RWIS ERROR 

4740 RTS RETURN TO 

4750 .1 RESTORE STATUS 

476 SEC SIGNAL RWIS R 

4770 RTS RETURN CALLER 
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4780 * 
1288 vd SET UP RWIS TO WRITE DOS 
4810 SETUP.WRITE.DOS 
B7C2- AD BC BS 4820 LDA FMP.SUBCOD IMAGE ADDRESS 
BIC5- 8D FI B7 4830 STA JOB. BUFFER+1 
B7CB— AI 0 4 LDA 
B7CA- 8D FO B7 4850 STA IOB.BUFFER 
B7CD- AD F9 BS 4860 LDA FMW.VOLUME VOLUME # 
B7D0- 49 FF 4870 EO F UNCOMPLEMENT IT 
B7D2- 8D EB B7 4880 STA IOB.VOLUME 
oe 4900 * 
4030 . CLEAR 256 BYTES STARTING AT ($42,43) 
4930 ZERO.CURRENT 
B7D6- A9 00 4940 LDA #0 
B7D8- A8 4950 TAY 
B7D9- 91 42 4960 .1 STA ($42) ,Y 
B/7DB- 4970 INY 
B7DC- DO FB —_:- 4980 BNE .] 
B7DE- 60 4990 . RTS 
5010 ¢ PARAMETERS FOR SECOND STAGE OF BOOT PROCESS 
B/DF- 2038 eBS ] <NOT USED> 
B7EO- 1B 5040 BT.N  <DA #27 # OF PAGES TO R/W (PARAMETER) 
B7El- 5050 BT.CNT .BS 1 # OF PAGES TO ABLE) 
B7E2- OA 5060 BT.1S -DA #10 1ST SECTOR # IN S STAGE 
B7E4- E8 B7 280 BT.IOB :DA IOB ADDRESS OF IOB 
B7E6- 00 B6 3090 BT.BT1 .DA BOOT.STAGE1+$B600-$0800 ADDR OF 1ST STAGE BOOT 
5110 * IOB FOR RWTS CALLS 
5120 * 
5130 I0B 
B7E8- 5140 IOB.TYPE .BS 1  O—MUST BE $01 
B7E9- 2199 IOB.SLOTI6 -BS i 1—SLOT # 1g 
B/EA- 5160 IOB.DRIVE .BS 2——DRIVE # (1 OR 
B7EB- 5170 IOB.VOLUME .BS 1 3—DESIRED VOL # (0 MATCHES ANY) 
B7EC- 5180 IOB.TRACK :BS 1 4—TRACK # (0 10 4) 
B 2190 IOB.SECTOR :BS 1. 5—SECTOR # (0 TO 15) 
B7EE- FB B7 200 IOB.PNIDCT ;DA DCT 6—ADDRESS OF DCT 
B7FO- D210 IOB.BUFFER .BS 2. 8— S 
B7F2- 5220 IOB.SECTSZ .BS 2 10—# BYTES I R 
BUF4- 5230 IOB.OPCODE :BS 1 12—O=SEEK, 1=READ, 2=WRITE, OR 4=FORMAT 
B7F5- 5240 IOB.ERROR sBS 1 13— CODE: 0, 10, 20, 40, 
B7F6- 5250 IOB.ACTVOL .BS 1 14—ACTUAL VO FOUND 
B/F]- 5260 IOB.PRVSLT .BS 1 15—PREVIOUS SLOT 
B7F8- 2310 IOB.PRVDRV .BS 16—PREVIOUS DRIVE # 
BUF | °BS 
B7FB- 00 01 EF 
B7FE- D8 5290 DCT eHS OOO1EFD8 
B7FF- 5300 -BS 1 
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